home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
Dater.AmiCAD
< prev
next >
Wrap
Text File
|
1999-05-25
|
726b
|
31 lines
/* Inscription de la date */
/* Version 1.00: 2 décembre 1998 */
/* Version 1.01: 25 mai 1999 (utilisation rexxlocaldates.library) */
/* $VER: 1.01 (© R.Florac, 25/5/99) */
options results /* indispensable pour récupérer le résultat des macros */
signal on error /* pour l'interception des erreurs */
signal on syntax
IF (~SHOW('L','rexxlocaldates.library')) THEN
CALL ADDLIB('rexxlocaldates.library',0,-30,0)
Ib = OpenLocale()
jour = FormatDate(Ib, ,"%A %e %B %Y")
'WRITE("'jour'",0,0)'
exit
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Erreur en ligne 'SIGL'")'
exit